home *** CD-ROM | disk | FTP | other *** search
/ Help! Multimídia 16 / HELP_CD16.ISO / help / proj32tc.exe / Bindice.dxr / 00011_Banco de imagens 3 COLUNA.ls < prev    next >
Encoding:
Text File  |  1998-11-12  |  718 b   |  38 lines
  1. on mouseDown
  2.   set spriteNum to the clickOn
  3.   set MNum to the memberNum of sprite spriteNum
  4.   set mLine to the mouseLine
  5.   if mLine = 1 then
  6.     go("banco1")
  7.   end if
  8.   if mLine = 2 then
  9.     go("banco15")
  10.   end if
  11.   if mLine = 3 then
  12.     go("banco15")
  13.   end if
  14.   if mLine = 4 then
  15.     go("banco4")
  16.   end if
  17.   if mLine = 5 then
  18.     go("banco14")
  19.   end if
  20.   if mLine = 6 then
  21.     go("banco16")
  22.   end if
  23.   if mLine = 7 then
  24.     go("banco5")
  25.   end if
  26.   if mLine = 8 then
  27.     go("banco11")
  28.   end if
  29.   set the foreColor of field MNum to 255
  30.   set the foreColor of line mLine of field MNum to 3
  31.   hilite line mLine of field MNum
  32. end
  33.  
  34. on mouseLeave
  35.   set the foreColor of field "banco 3" to getColor("black")
  36.   go("menu")
  37. end
  38.